This data set from TidyTuesday originates from a Google Sheet compiled by Chris Eckert. It compares Rolling Stone’s “500 Greatest Albums of All Time” lists from 2003, 2012, and 2020 and includes information on each album’s name, genre, release year, 2003/2012/2020 rank, the artist’s name, birth year, gender, and more. This analysis looks at the trend in the production of the “greatest” albums over time. Which years were the most fruitful? Are artists getting worse at producing incredible albums?
library(tidyverse)tuesdata <- tidytuesdayR::tt_load(2024, week =19)rolling_stone <- tuesdata$rolling_stonerolling_stone_df <- rolling_stone |>group_by(release_year) |>summarize(num_per_year =n_distinct(album))ggplot(rolling_stone_df, aes(x = release_year, y = num_per_year)) +geom_point(color ="cadetblue") +geom_line(color ="cadetblue") +labs(title ="Rolling Stone's Greatest Albums of All Time",x ="Release Year",y ="Number of Albums Included in Top 500 Ranking", )